home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / term / vt100.el < prev    next >
Encoding:
Text File  |  1995-06-06  |  3.7 KB  |  87 lines
  1. ;; This file is part of XEmacs.
  2.  
  3. ;; XEmacs is free software; you can redistribute it and/or modify it
  4. ;; under the terms of the GNU General Public License as published by
  5. ;; the Free Software Foundation; either version 2, or (at your option)
  6. ;; any later version.
  7.  
  8. ;; XEmacs is distributed in the hope that it will be useful, but
  9. ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  10. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11. ;; General Public License for more details.
  12.  
  13. ;; You should have received a copy of the GNU General Public License
  14. ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  15. ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  16.  
  17. ;; Termcap or terminfo should set these next four.
  18. (define-key function-key-map "\e[A" 'up)
  19. (define-key function-key-map "\e[B" 'down)
  20. (define-key function-key-map "\e[C" 'right)
  21. (define-key function-key-map "\e[D" 'left)
  22.  
  23. (define-key function-key-map "\e[1~" 'find)
  24. (define-key function-key-map "\e[2~" 'insert)
  25. (define-key function-key-map "\e[3~" 'delete)
  26. (define-key function-key-map "\e[4~" 'select)
  27. (define-key function-key-map "\e[5~" 'prior)
  28. (define-key function-key-map "\e[6~" 'next)
  29. (define-key function-key-map "\e[11~" 'f1)
  30. (define-key function-key-map "\e[12~" 'f2)
  31. (define-key function-key-map "\e[13~" 'f3)
  32. (define-key function-key-map "\e[14~" 'f4)
  33. (define-key function-key-map "\e[15~" 'f5)
  34. (define-key function-key-map "\e[17~" 'f6)
  35. (define-key function-key-map "\e[18~" 'f7)
  36. (define-key function-key-map "\e[19~" 'f8)
  37. (define-key function-key-map "\e[20~" 'f9)
  38. (define-key function-key-map "\e[21~" 'f10)
  39. ;; Customarily F11 is used as the ESC key.
  40. ;; The file that includes this one, takes care of that.
  41. (define-key function-key-map "\e[23~" 'f11)
  42. (define-key function-key-map "\e[24~" 'f12)
  43. (define-key function-key-map "\e[25~" 'f13)
  44. (define-key function-key-map "\e[26~" 'f14)
  45. (define-key function-key-map "\e[28~" 'help)
  46. (define-key function-key-map "\e[29~" 'menu)
  47. (define-key function-key-map "\e[31~" 'f17)
  48. (define-key function-key-map "\e[32~" 'f18)
  49. (define-key function-key-map "\e[33~" 'f19)
  50. (define-key function-key-map "\e[34~" 'f20)
  51.  
  52. ;; Termcap or terminfo should set these next four.
  53. (define-key function-key-map "\eOA" 'up)
  54. (define-key function-key-map "\eOB" 'down)
  55. (define-key function-key-map "\eOC" 'right)
  56. (define-key function-key-map "\eOD" 'left)
  57.  
  58. ;; If you use the X resource -- XTerm*sunFunctionKeys: on -- you may
  59. ;; need these.
  60. (define-key function-key-map "\e[224z" 'f1)
  61. (define-key function-key-map "\e[225z" 'f2)
  62. (define-key function-key-map "\e[226z" 'f3)
  63. (define-key function-key-map "\e[227z" 'f4)
  64. (define-key function-key-map "\e[228z" 'f5)
  65. (define-key function-key-map "\e[229z" 'f6)
  66. (define-key function-key-map "\e[230z" 'f7)
  67. (define-key function-key-map "\e[231z" 'f8)
  68. (define-key function-key-map "\e[232z" 'f9)
  69. (define-key function-key-map "\e[233z" 'f10)
  70. (define-key function-key-map "\e[234z" 'f11)
  71. (define-key function-key-map "\e[235z" 'f12)
  72. (define-key function-key-map "\e[194z" '(shift f1))
  73. (define-key function-key-map "\e[195z" '(shift f2))
  74. (define-key function-key-map "\e[196z" '(shift f3))
  75. (define-key function-key-map "\e[197z" '(shift f4))
  76. (define-key function-key-map "\e[198z" '(shift f5))
  77. (define-key function-key-map "\e[199z" '(shift f6))
  78. (define-key function-key-map "\e[200z" '(shift f7))
  79. (define-key function-key-map "\e[201z" '(shift f8))
  80. (define-key function-key-map "\e[208z" '(shift f9))
  81. (define-key function-key-map "\e[209z" '(shift f10))
  82. (define-key function-key-map "\e[210z" '(shift f11))
  83. (define-key function-key-map "\e[211z" '(shift f12))
  84. (define-key function-key-map "\e[2z" 'insert)
  85. (define-key function-key-map "\e[5z" 'pgup)
  86. (define-key function-key-map "\e[6z" 'pgdn)
  87.